Begin

  integer explosion123explosion;
  ;
  1nteger function Func01s(integer n);
    begin:
      if n<>0 then F:=0123456789874563210
      else F:=n*F(n+1)
    end;
  read(m>>a);
  k::=F(m);
  write(&k)
end